home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_7346_SaveBookMenuSettingsCSTR < prev    next >
Encoding:
Text File  |  1994-09-21  |  558 b   |  17 lines
  1. set cursor to "busy"
  2. put "" into hadBooks
  3. put "" into hadBooksMsg
  4. put "" into hadBooksCheck
  5. put "" into hadBooksState
  6. put "" into hadBooksChar
  7. put tStr("LibMsg",40) into bn
  8. if there is a menu bn then
  9. put menu bn into hadBooks
  10. put line 1 to 6 of hadBooks into hadBooks
  11. repeat with x = 1 to the number of lines in hadBooks
  12. set cursor to "busy"
  13. put the checkmark of menuitem x of menu bn into line x of hadBooksCheck
  14. end repeat
  15. put hadBooks&"■"&hadBooksMsg&"■"&hadBooksCheck&"■"&hadBooksState&"■"&hadBooksChar into temp
  16. setStr "SavedBookMenuState", temp
  17. end if